<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">System.Console.Haskeline.Prefs</span><span class="hs-special">(</span><span>
</span><span id="line-2"></span><span>                        </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier">Prefs</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-3"></span><span>                        </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#defaultPrefs"><span class="hs-identifier">defaultPrefs</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-4"></span><span>                        </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#readPrefs"><span class="hs-identifier">readPrefs</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-5"></span><span>                        </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#CompletionType"><span class="hs-identifier">CompletionType</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-6"></span><span>                        </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#BellStyle"><span class="hs-identifier">BellStyle</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-7"></span><span>                        </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#EditMode"><span class="hs-identifier">EditMode</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-8"></span><span>                        </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#HistoryDuplicates"><span class="hs-identifier">HistoryDuplicates</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-9"></span><span>                        </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#lookupKeyBinding"><span class="hs-identifier">lookupKeyBinding</span></a></span><span>
</span><span id="line-10"></span><span>                        </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-11"></span><span>
</span><span id="line-12"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../exceptions/src/Control.Monad.Catch.html#"><span class="hs-identifier">Control.Monad.Catch</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../exceptions/src/Control.Monad.Catch.html#handle"><span class="hs-identifier">handle</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-13"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Control.Exception.html#"><span class="hs-identifier">Control.Exception</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.IO.Exception.html#IOException"><span class="hs-identifier">IOException</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-14"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Char.html#"><span class="hs-identifier">Data.Char</span></a></span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Unicode.html#isSpace"><span class="hs-identifier">isSpace</span></a></span><span class="hs-special">,</span><span class="annot"><a href="../../base/src/GHC.Unicode.html#toLower"><span class="hs-identifier">toLower</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-15"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.List.html#"><span class="hs-identifier">Data.List</span></a></span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/Data.Foldable.html#foldl%27"><span class="hs-identifier">foldl'</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-16"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../containers/src/Data.Map.html#"><span class="hs-identifier">Data.Map</span></a></span><span> </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">Map</span></span><span>
</span><span id="line-17"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Key.html"><span class="hs-identifier">System.Console.Haskeline.Key</span></a></span><span>
</span><span id="line-18"></span><span>
</span><span id="line-19"></span><span class="hs-comment">{- |
'Prefs' allow the user to customize the terminal-style line-editing interface.  They are
read by default from @~/.haskeline@; to override that behavior, use
'readPrefs' and @runInputTWithPrefs@.

Each line of a @.haskeline@ file defines
one field of the 'Prefs' datatype; field names are case-insensitive and
unparseable lines are ignored.  For example:

&gt; editMode: Vi
&gt; completionType: MenuCompletion
&gt; maxhistorysize: Just 40

-}</span><span>
</span><span id="line-33"></span><span class="hs-keyword">data</span><span> </span><span id="Prefs"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-var">Prefs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="Prefs"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-var">Prefs</span></a></span></span><span> </span><span class="hs-special">{</span><span> </span><span id="bellStyle"><span class="annot"><span class="annottext">Prefs -&gt; BellStyle
</span><a href="System.Console.Haskeline.Prefs.html#bellStyle"><span class="hs-identifier hs-var hs-var">bellStyle</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#BellStyle"><span class="hs-identifier hs-type">BellStyle</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-34"></span><span>                     </span><span id="editMode"><span class="annot"><span class="annottext">Prefs -&gt; EditMode
</span><a href="System.Console.Haskeline.Prefs.html#editMode"><span class="hs-identifier hs-var hs-var">editMode</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#EditMode"><span class="hs-identifier hs-type">EditMode</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-35"></span><span>                     </span><span id="maxHistorySize"><span class="annot"><span class="annottext">Prefs -&gt; Maybe Int
</span><a href="System.Console.Haskeline.Prefs.html#maxHistorySize"><span class="hs-identifier hs-var hs-var">maxHistorySize</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-36"></span><span>                     </span><span id="historyDuplicates"><span class="annot"><span class="annottext">Prefs -&gt; HistoryDuplicates
</span><a href="System.Console.Haskeline.Prefs.html#historyDuplicates"><span class="hs-identifier hs-var hs-var">historyDuplicates</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#HistoryDuplicates"><span class="hs-identifier hs-type">HistoryDuplicates</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-37"></span><span>                     </span><span id="completionType"><span class="annot"><span class="annottext">Prefs -&gt; CompletionType
</span><a href="System.Console.Haskeline.Prefs.html#completionType"><span class="hs-identifier hs-var hs-var">completionType</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#CompletionType"><span class="hs-identifier hs-type">CompletionType</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-38"></span><span>                     </span><span id="completionPaging"><span class="annot"><span class="annottext">Prefs -&gt; Bool
</span><a href="System.Console.Haskeline.Prefs.html#completionPaging"><span class="hs-identifier hs-var hs-var">completionPaging</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span class="hs-special">,</span><span> </span><span>
</span><span id="line-39"></span><span>                        </span><span class="hs-comment">-- ^ When listing completion alternatives, only display</span><span>
</span><span id="line-40"></span><span>                        </span><span class="hs-comment">-- one screen of possibilities at a time.</span><span>
</span><span id="line-41"></span><span>                     </span><span id="completionPromptLimit"><span class="annot"><span class="annottext">Prefs -&gt; Maybe Int
</span><a href="System.Console.Haskeline.Prefs.html#completionPromptLimit"><span class="hs-identifier hs-var hs-var">completionPromptLimit</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><span class="hs-identifier hs-type">Int</span></span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-42"></span><span>                        </span><span class="hs-comment">-- ^ If more than this number of completion</span><span>
</span><span id="line-43"></span><span>                        </span><span class="hs-comment">-- possibilities are found, then ask before listing</span><span>
</span><span id="line-44"></span><span>                        </span><span class="hs-comment">-- them.</span><span>
</span><span id="line-45"></span><span>                     </span><span id="listCompletionsImmediately"><span class="annot"><span class="annottext">Prefs -&gt; Bool
</span><a href="System.Console.Haskeline.Prefs.html#listCompletionsImmediately"><span class="hs-identifier hs-var hs-var">listCompletionsImmediately</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-glyph">!</span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span class="hs-special">,</span><span>
</span><span id="line-46"></span><span>                        </span><span class="hs-comment">-- ^ If 'False', completions with multiple possibilities</span><span>
</span><span id="line-47"></span><span>                        </span><span class="hs-comment">-- will ring the bell and only display them if the user</span><span>
</span><span id="line-48"></span><span>                        </span><span class="hs-comment">-- presses @TAB@ again.</span><span>
</span><span id="line-49"></span><span>                     </span><span id="customBindings"><span class="annot"><span class="annottext">Prefs -&gt; Map Key [Key]
</span><a href="System.Console.Haskeline.Prefs.html#customBindings"><span class="hs-identifier hs-var hs-var">customBindings</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../containers/src/Data.Map.Internal.html#Map"><span class="hs-identifier hs-type">Map.Map</span></a></span><span> </span><span class="annot"><a href="System.Console.Haskeline.Key.html#Key"><span class="hs-identifier hs-type">Key</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><a href="System.Console.Haskeline.Key.html#Key"><span class="hs-identifier hs-type">Key</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span>
</span><span id="line-50"></span><span>                        </span><span class="hs-comment">-- (termName, keysequence, key)</span><span>
</span><span id="line-51"></span><span>                     </span><span id="customKeySequences"><span class="annot"><span class="annottext">Prefs -&gt; [(Maybe String, String, Key)]
</span><a href="System.Console.Haskeline.Prefs.html#customKeySequences"><span class="hs-identifier hs-var hs-var">customKeySequences</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span class="annot"><a href="System.Console.Haskeline.Key.html#Key"><span class="hs-identifier hs-type">Key</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-52"></span><span>                     </span><span class="hs-special">}</span><span>
</span><span id="line-53"></span><span>                        </span><span class="hs-keyword">deriving</span><span> </span><span id="local-6989586621679093605"><span id="local-6989586621679093607"><span id="local-6989586621679093629"><span class="annot"><span class="annottext">Int -&gt; Prefs -&gt; ShowS
[Prefs] -&gt; ShowS
Prefs -&gt; String
(Int -&gt; Prefs -&gt; ShowS)
-&gt; (Prefs -&gt; String) -&gt; ([Prefs] -&gt; ShowS) -&gt; Show Prefs
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [Prefs] -&gt; ShowS
$cshowList :: [Prefs] -&gt; ShowS
show :: Prefs -&gt; String
$cshow :: Prefs -&gt; String
showsPrec :: Int -&gt; Prefs -&gt; ShowS
$cshowsPrec :: Int -&gt; Prefs -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span>
</span><span id="line-54"></span><span>
</span><span id="line-55"></span><span class="hs-keyword">data</span><span> </span><span id="CompletionType"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#CompletionType"><span class="hs-identifier hs-var">CompletionType</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="ListCompletion"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#ListCompletion"><span class="hs-identifier hs-var">ListCompletion</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="MenuCompletion"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#MenuCompletion"><span class="hs-identifier hs-var">MenuCompletion</span></a></span></span><span>
</span><span id="line-56"></span><span>            </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679093582"><span id="local-6989586621679093587"><span id="local-6989586621679093590"><span id="local-6989586621679093592"><span class="annot"><span class="annottext">ReadPrec [CompletionType]
ReadPrec CompletionType
Int -&gt; ReadS CompletionType
ReadS [CompletionType]
(Int -&gt; ReadS CompletionType)
-&gt; ReadS [CompletionType]
-&gt; ReadPrec CompletionType
-&gt; ReadPrec [CompletionType]
-&gt; Read CompletionType
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [CompletionType]
$creadListPrec :: ReadPrec [CompletionType]
readPrec :: ReadPrec CompletionType
$creadPrec :: ReadPrec CompletionType
readList :: ReadS [CompletionType]
$creadList :: ReadS [CompletionType]
readsPrec :: Int -&gt; ReadS CompletionType
$creadsPrec :: Int -&gt; ReadS CompletionType
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679093574"><span id="local-6989586621679093576"><span id="local-6989586621679093578"><span class="annot"><span class="annottext">Int -&gt; CompletionType -&gt; ShowS
[CompletionType] -&gt; ShowS
CompletionType -&gt; String
(Int -&gt; CompletionType -&gt; ShowS)
-&gt; (CompletionType -&gt; String)
-&gt; ([CompletionType] -&gt; ShowS)
-&gt; Show CompletionType
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [CompletionType] -&gt; ShowS
$cshowList :: [CompletionType] -&gt; ShowS
show :: CompletionType -&gt; String
$cshow :: CompletionType -&gt; String
showsPrec :: Int -&gt; CompletionType -&gt; ShowS
$cshowsPrec :: Int -&gt; CompletionType -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-57"></span><span>
</span><span id="line-58"></span><span>
</span><span id="line-59"></span><span class="hs-keyword">data</span><span> </span><span id="BellStyle"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#BellStyle"><span class="hs-identifier hs-var">BellStyle</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="NoBell"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#NoBell"><span class="hs-identifier hs-var">NoBell</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="VisualBell"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#VisualBell"><span class="hs-identifier hs-var">VisualBell</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="AudibleBell"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#AudibleBell"><span class="hs-identifier hs-var">AudibleBell</span></a></span></span><span>
</span><span id="line-60"></span><span>                    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679093565"><span id="local-6989586621679093567"><span id="local-6989586621679093569"><span class="annot"><span class="annottext">Int -&gt; BellStyle -&gt; ShowS
[BellStyle] -&gt; ShowS
BellStyle -&gt; String
(Int -&gt; BellStyle -&gt; ShowS)
-&gt; (BellStyle -&gt; String)
-&gt; ([BellStyle] -&gt; ShowS)
-&gt; Show BellStyle
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [BellStyle] -&gt; ShowS
$cshowList :: [BellStyle] -&gt; ShowS
show :: BellStyle -&gt; String
$cshow :: BellStyle -&gt; String
showsPrec :: Int -&gt; BellStyle -&gt; ShowS
$cshowsPrec :: Int -&gt; BellStyle -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679093553"><span id="local-6989586621679093558"><span id="local-6989586621679093561"><span id="local-6989586621679093563"><span class="annot"><span class="annottext">ReadPrec [BellStyle]
ReadPrec BellStyle
Int -&gt; ReadS BellStyle
ReadS [BellStyle]
(Int -&gt; ReadS BellStyle)
-&gt; ReadS [BellStyle]
-&gt; ReadPrec BellStyle
-&gt; ReadPrec [BellStyle]
-&gt; Read BellStyle
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [BellStyle]
$creadListPrec :: ReadPrec [BellStyle]
readPrec :: ReadPrec BellStyle
$creadPrec :: ReadPrec BellStyle
readList :: ReadS [BellStyle]
$creadList :: ReadS [BellStyle]
readsPrec :: Int -&gt; ReadS BellStyle
$creadsPrec :: Int -&gt; ReadS BellStyle
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-61"></span><span>
</span><span id="line-62"></span><span class="hs-keyword">data</span><span> </span><span id="EditMode"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#EditMode"><span class="hs-identifier hs-var">EditMode</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="Vi"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Vi"><span class="hs-identifier hs-var">Vi</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="Emacs"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Emacs"><span class="hs-identifier hs-var">Emacs</span></a></span></span><span>
</span><span id="line-63"></span><span>                    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679093544"><span id="local-6989586621679093546"><span id="local-6989586621679093548"><span class="annot"><span class="annottext">Int -&gt; EditMode -&gt; ShowS
[EditMode] -&gt; ShowS
EditMode -&gt; String
(Int -&gt; EditMode -&gt; ShowS)
-&gt; (EditMode -&gt; String) -&gt; ([EditMode] -&gt; ShowS) -&gt; Show EditMode
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [EditMode] -&gt; ShowS
$cshowList :: [EditMode] -&gt; ShowS
show :: EditMode -&gt; String
$cshow :: EditMode -&gt; String
showsPrec :: Int -&gt; EditMode -&gt; ShowS
$cshowsPrec :: Int -&gt; EditMode -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679093533"><span id="local-6989586621679093537"><span id="local-6989586621679093540"><span id="local-6989586621679093542"><span class="annot"><span class="annottext">ReadPrec [EditMode]
ReadPrec EditMode
Int -&gt; ReadS EditMode
ReadS [EditMode]
(Int -&gt; ReadS EditMode)
-&gt; ReadS [EditMode]
-&gt; ReadPrec EditMode
-&gt; ReadPrec [EditMode]
-&gt; Read EditMode
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [EditMode]
$creadListPrec :: ReadPrec [EditMode]
readPrec :: ReadPrec EditMode
$creadPrec :: ReadPrec EditMode
readList :: ReadS [EditMode]
$creadList :: ReadS [EditMode]
readsPrec :: Int -&gt; ReadS EditMode
$creadsPrec :: Int -&gt; ReadS EditMode
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-64"></span><span>
</span><span id="line-65"></span><span class="hs-keyword">data</span><span> </span><span id="HistoryDuplicates"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#HistoryDuplicates"><span class="hs-identifier hs-var">HistoryDuplicates</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="AlwaysAdd"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#AlwaysAdd"><span class="hs-identifier hs-var">AlwaysAdd</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="IgnoreConsecutive"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#IgnoreConsecutive"><span class="hs-identifier hs-var">IgnoreConsecutive</span></a></span></span><span> </span><span class="hs-glyph">|</span><span> </span><span id="IgnoreAll"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#IgnoreAll"><span class="hs-identifier hs-var">IgnoreAll</span></a></span></span><span>
</span><span id="line-66"></span><span>                    </span><span class="hs-keyword">deriving</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679093523"><span id="local-6989586621679093525"><span id="local-6989586621679093527"><span class="annot"><span class="annottext">Int -&gt; HistoryDuplicates -&gt; ShowS
[HistoryDuplicates] -&gt; ShowS
HistoryDuplicates -&gt; String
(Int -&gt; HistoryDuplicates -&gt; ShowS)
-&gt; (HistoryDuplicates -&gt; String)
-&gt; ([HistoryDuplicates] -&gt; ShowS)
-&gt; Show HistoryDuplicates
forall a.
(Int -&gt; a -&gt; ShowS) -&gt; (a -&gt; String) -&gt; ([a] -&gt; ShowS) -&gt; Show a
showList :: [HistoryDuplicates] -&gt; ShowS
$cshowList :: [HistoryDuplicates] -&gt; ShowS
show :: HistoryDuplicates -&gt; String
$cshow :: HistoryDuplicates -&gt; String
showsPrec :: Int -&gt; HistoryDuplicates -&gt; ShowS
$cshowsPrec :: Int -&gt; HistoryDuplicates -&gt; ShowS
</span><a href="../../base/src/GHC.Show.html#Show"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Show</span></a></span></span></span></span><span class="hs-special">,</span><span id="local-6989586621679093511"><span id="local-6989586621679093516"><span id="local-6989586621679093519"><span id="local-6989586621679093521"><span class="annot"><span class="annottext">ReadPrec [HistoryDuplicates]
ReadPrec HistoryDuplicates
Int -&gt; ReadS HistoryDuplicates
ReadS [HistoryDuplicates]
(Int -&gt; ReadS HistoryDuplicates)
-&gt; ReadS [HistoryDuplicates]
-&gt; ReadPrec HistoryDuplicates
-&gt; ReadPrec [HistoryDuplicates]
-&gt; Read HistoryDuplicates
forall a.
(Int -&gt; ReadS a)
-&gt; ReadS [a] -&gt; ReadPrec a -&gt; ReadPrec [a] -&gt; Read a
readListPrec :: ReadPrec [HistoryDuplicates]
$creadListPrec :: ReadPrec [HistoryDuplicates]
readPrec :: ReadPrec HistoryDuplicates
$creadPrec :: ReadPrec HistoryDuplicates
readList :: ReadS [HistoryDuplicates]
$creadList :: ReadS [HistoryDuplicates]
readsPrec :: Int -&gt; ReadS HistoryDuplicates
$creadsPrec :: Int -&gt; ReadS HistoryDuplicates
</span><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Read</span></a></span></span></span></span></span><span class="hs-special">)</span><span>
</span><span id="line-67"></span><span>
</span><span id="line-68"></span><span class="hs-comment">-- | The default preferences which may be overwritten in the</span><span>
</span><span id="line-69"></span><span class="hs-comment">-- @.haskeline@ file.</span><span>
</span><span id="line-70"></span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#defaultPrefs"><span class="hs-identifier hs-type">defaultPrefs</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span>
</span><span id="line-71"></span><span id="defaultPrefs"><span class="annot"><span class="annottext">defaultPrefs :: Prefs
</span><a href="System.Console.Haskeline.Prefs.html#defaultPrefs"><span class="hs-identifier hs-var hs-var">defaultPrefs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Prefs :: BellStyle
-&gt; EditMode
-&gt; Maybe Int
-&gt; HistoryDuplicates
-&gt; CompletionType
-&gt; Bool
-&gt; Maybe Int
-&gt; Bool
-&gt; Map Key [Key]
-&gt; [(Maybe String, String, Key)]
-&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">bellStyle :: BellStyle
</span><a href="System.Console.Haskeline.Prefs.html#bellStyle"><span class="hs-identifier hs-var">bellStyle</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">BellStyle
</span><a href="System.Console.Haskeline.Prefs.html#AudibleBell"><span class="hs-identifier hs-var">AudibleBell</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-72"></span><span>                      </span><span class="annot"><span class="annottext">maxHistorySize :: Maybe Int
</span><a href="System.Console.Haskeline.Prefs.html#maxHistorySize"><span class="hs-identifier hs-var">maxHistorySize</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">100</span></span><span class="hs-special">,</span><span>
</span><span id="line-73"></span><span>                      </span><span class="annot"><span class="annottext">editMode :: EditMode
</span><a href="System.Console.Haskeline.Prefs.html#editMode"><span class="hs-identifier hs-var">editMode</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">EditMode
</span><a href="System.Console.Haskeline.Prefs.html#Emacs"><span class="hs-identifier hs-var">Emacs</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-74"></span><span>                      </span><span class="annot"><span class="annottext">completionType :: CompletionType
</span><a href="System.Console.Haskeline.Prefs.html#completionType"><span class="hs-identifier hs-var">completionType</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">CompletionType
</span><a href="System.Console.Haskeline.Prefs.html#ListCompletion"><span class="hs-identifier hs-var">ListCompletion</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-75"></span><span>                      </span><span class="annot"><span class="annottext">completionPaging :: Bool
</span><a href="System.Console.Haskeline.Prefs.html#completionPaging"><span class="hs-identifier hs-var">completionPaging</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span class="hs-special">,</span><span>
</span><span id="line-76"></span><span>                      </span><span class="annot"><span class="annottext">completionPromptLimit :: Maybe Int
</span><a href="System.Console.Haskeline.Prefs.html#completionPromptLimit"><span class="hs-identifier hs-var">completionPromptLimit</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Int -&gt; Maybe Int
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">100</span></span><span class="hs-special">,</span><span>
</span><span id="line-77"></span><span>                      </span><span class="annot"><span class="annottext">listCompletionsImmediately :: Bool
</span><a href="System.Console.Haskeline.Prefs.html#listCompletionsImmediately"><span class="hs-identifier hs-var">listCompletionsImmediately</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">True</span></span><span class="hs-special">,</span><span>
</span><span id="line-78"></span><span>                      </span><span class="annot"><span class="annottext">historyDuplicates :: HistoryDuplicates
</span><a href="System.Console.Haskeline.Prefs.html#historyDuplicates"><span class="hs-identifier hs-var">historyDuplicates</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HistoryDuplicates
</span><a href="System.Console.Haskeline.Prefs.html#AlwaysAdd"><span class="hs-identifier hs-var">AlwaysAdd</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-79"></span><span>                      </span><span class="annot"><span class="annottext">customBindings :: Map Key [Key]
</span><a href="System.Console.Haskeline.Prefs.html#customBindings"><span class="hs-identifier hs-var">customBindings</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Map Key [Key]
forall k a. Map k a
</span><a href="../../containers/src/Data.Map.Internal.html#empty"><span class="hs-identifier hs-var">Map.empty</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-80"></span><span>                      </span><span class="annot"><span class="annottext">customKeySequences :: [(Maybe String, String, Key)]
</span><a href="System.Console.Haskeline.Prefs.html#customKeySequences"><span class="hs-identifier hs-var">customKeySequences</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>
</span><span id="line-81"></span><span>                    </span><span class="hs-special">}</span><span>
</span><span id="line-82"></span><span>
</span><span id="line-83"></span><span id="local-6989586621679093755"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-type">mkSettor</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-type">Read</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679093755"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="#local-6989586621679093755"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span></span><span>
</span><span id="line-84"></span><span id="mkSettor"><span class="annot"><span class="annottext">mkSettor :: forall a.
Read a =&gt;
(a -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-var hs-var">mkSettor</span></a></span></span><span> </span><span id="local-6989586621679093505"><span class="annot"><span class="annottext">a -&gt; Prefs -&gt; Prefs
</span><a href="#local-6989586621679093505"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679093504"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093504"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Prefs -&gt; Prefs)
-&gt; (a -&gt; Prefs -&gt; Prefs) -&gt; Maybe a -&gt; Prefs -&gt; Prefs
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="annot"><span class="annottext">Prefs -&gt; Prefs
forall a. a -&gt; a
</span><a href="../../base/src/GHC.Base.html#id"><span class="hs-identifier hs-var">id</span></a></span><span> </span><span class="annot"><span class="annottext">a -&gt; Prefs -&gt; Prefs
</span><a href="#local-6989586621679093505"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; Maybe a
forall a. Read a =&gt; String -&gt; Maybe a
</span><a href="System.Console.Haskeline.Prefs.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093504"><span class="hs-identifier hs-var">str</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-85"></span><span>
</span><span id="line-86"></span><span id="local-6989586621679093750"><span class="annot"><a href="System.Console.Haskeline.Prefs.html#readMaybe"><span class="hs-identifier hs-type">readMaybe</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Read.html#Read"><span class="hs-identifier hs-type">Read</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679093750"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679093750"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-87"></span><span id="readMaybe"><span class="annot"><span class="annottext">readMaybe :: forall a. Read a =&gt; String -&gt; Maybe a
</span><a href="System.Console.Haskeline.Prefs.html#readMaybe"><span class="hs-identifier hs-var hs-var">readMaybe</span></a></span></span><span> </span><span id="local-6989586621679093498"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093498"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">ReadS a
forall a. Read a =&gt; ReadS a
</span><a href="../../base/src/Text.Read.html#reads"><span class="hs-identifier hs-var">reads</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093498"><span class="hs-identifier hs-var">str</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-88"></span><span>                </span><span class="hs-special">[</span><span class="hs-special">(</span><span id="local-6989586621679093496"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679093496"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">,</span><span class="annot"><span class="annottext">String
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">a -&gt; Maybe a
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679093496"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-89"></span><span>                </span><span class="annot"><span class="annottext">[(a, String)]
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe a
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-90"></span><span>
</span><span id="line-91"></span><span>
</span><span id="line-92"></span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#settors"><span class="hs-identifier hs-type">settors</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span class="hs-special">)</span><span class="hs-special">]</span><span>
</span><span id="line-93"></span><span id="settors"><span class="annot"><span class="annottext">settors :: [(String, String -&gt; Prefs -&gt; Prefs)]
</span><a href="System.Console.Haskeline.Prefs.html#settors"><span class="hs-identifier hs-var hs-var">settors</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">[</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;bellstyle&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(BellStyle -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a.
Read a =&gt;
(a -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-var">mkSettor</span></a></span><span> </span><span class="annot"><span class="annottext">((BellStyle -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs)
-&gt; (BellStyle -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679093494"><span class="annot"><span class="annottext">BellStyle
</span><a href="#local-6989586621679093494"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679093493"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093493"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093493"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">bellStyle :: BellStyle
</span><a href="System.Console.Haskeline.Prefs.html#bellStyle"><span class="hs-identifier hs-var">bellStyle</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">BellStyle
</span><a href="#local-6989586621679093494"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-94"></span><span>          </span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;editmode&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(EditMode -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a.
Read a =&gt;
(a -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-var">mkSettor</span></a></span><span> </span><span class="annot"><span class="annottext">((EditMode -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs)
-&gt; (EditMode -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679093492"><span class="annot"><span class="annottext">EditMode
</span><a href="#local-6989586621679093492"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679093491"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093491"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093491"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">editMode :: EditMode
</span><a href="System.Console.Haskeline.Prefs.html#editMode"><span class="hs-identifier hs-var">editMode</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">EditMode
</span><a href="#local-6989586621679093492"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-95"></span><span>          </span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;maxhistorysize&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(Maybe Int -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a.
Read a =&gt;
(a -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-var">mkSettor</span></a></span><span> </span><span class="annot"><span class="annottext">((Maybe Int -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs)
-&gt; (Maybe Int -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679093490"><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679093490"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679093489"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093489"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093489"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">maxHistorySize :: Maybe Int
</span><a href="System.Console.Haskeline.Prefs.html#maxHistorySize"><span class="hs-identifier hs-var">maxHistorySize</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679093490"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-96"></span><span>          </span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;completiontype&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(CompletionType -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a.
Read a =&gt;
(a -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-var">mkSettor</span></a></span><span> </span><span class="annot"><span class="annottext">((CompletionType -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs)
-&gt; (CompletionType -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679093488"><span class="annot"><span class="annottext">CompletionType
</span><a href="#local-6989586621679093488"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679093487"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093487"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093487"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">completionType :: CompletionType
</span><a href="System.Console.Haskeline.Prefs.html#completionType"><span class="hs-identifier hs-var">completionType</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">CompletionType
</span><a href="#local-6989586621679093488"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-97"></span><span>          </span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;completionpaging&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a.
Read a =&gt;
(a -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-var">mkSettor</span></a></span><span> </span><span class="annot"><span class="annottext">((Bool -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs)
-&gt; (Bool -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679093486"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679093486"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679093485"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093485"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093485"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">completionPaging :: Bool
</span><a href="System.Console.Haskeline.Prefs.html#completionPaging"><span class="hs-identifier hs-var">completionPaging</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679093486"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-98"></span><span>          </span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;completionpromptlimit&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(Maybe Int -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a.
Read a =&gt;
(a -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-var">mkSettor</span></a></span><span> </span><span class="annot"><span class="annottext">((Maybe Int -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs)
-&gt; (Maybe Int -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679093484"><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679093484"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679093483"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093483"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093483"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">completionPromptLimit :: Maybe Int
</span><a href="System.Console.Haskeline.Prefs.html#completionPromptLimit"><span class="hs-identifier hs-var">completionPromptLimit</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Maybe Int
</span><a href="#local-6989586621679093484"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-99"></span><span>          </span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;listcompletionsimmediately&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(Bool -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a.
Read a =&gt;
(a -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-var">mkSettor</span></a></span><span> </span><span class="annot"><span class="annottext">((Bool -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs)
-&gt; (Bool -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679093482"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679093482"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679093481"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093481"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093481"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">listCompletionsImmediately :: Bool
</span><a href="System.Console.Haskeline.Prefs.html#listCompletionsImmediately"><span class="hs-identifier hs-var">listCompletionsImmediately</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679093482"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-100"></span><span>          </span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;historyduplicates&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(HistoryDuplicates -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
forall a.
Read a =&gt;
(a -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#mkSettor"><span class="hs-identifier hs-var">mkSettor</span></a></span><span> </span><span class="annot"><span class="annottext">((HistoryDuplicates -&gt; Prefs -&gt; Prefs) -&gt; String -&gt; Prefs -&gt; Prefs)
-&gt; (HistoryDuplicates -&gt; Prefs -&gt; Prefs)
-&gt; String
-&gt; Prefs
-&gt; Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679093480"><span class="annot"><span class="annottext">HistoryDuplicates
</span><a href="#local-6989586621679093480"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679093479"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093479"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093479"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">historyDuplicates :: HistoryDuplicates
</span><a href="System.Console.Haskeline.Prefs.html#historyDuplicates"><span class="hs-identifier hs-var">historyDuplicates</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HistoryDuplicates
</span><a href="#local-6989586621679093480"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-101"></span><span>          </span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;bind&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#addCustomBinding"><span class="hs-identifier hs-var">addCustomBinding</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-102"></span><span>          </span><span class="hs-special">,</span><span class="hs-special">(</span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;keyseq&quot;</span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#addCustomKeySequence"><span class="hs-identifier hs-var">addCustomKeySequence</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-103"></span><span>          </span><span class="hs-special">]</span><span>
</span><span id="line-104"></span><span>
</span><span id="line-105"></span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#addCustomBinding"><span class="hs-identifier hs-type">addCustomBinding</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span>
</span><span id="line-106"></span><span id="addCustomBinding"><span class="annot"><span class="annottext">addCustomBinding :: String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#addCustomBinding"><span class="hs-identifier hs-var hs-var">addCustomBinding</span></a></span></span><span> </span><span id="local-6989586621679093476"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093476"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span id="local-6989586621679093475"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093475"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">(String -&gt; Maybe Key) -&gt; [String] -&gt; Maybe [Key]
forall (t :: * -&gt; *) (m :: * -&gt; *) a b.
(Traversable t, Monad m) =&gt;
(a -&gt; m b) -&gt; t a -&gt; m (t b)
</span><a href="../../base/src/Data.Traversable.html#mapM"><span class="hs-identifier hs-var">mapM</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe Key
</span><a href="System.Console.Haskeline.Key.html#parseKey"><span class="hs-identifier hs-var">parseKey</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; [String]
</span><a href="../../base/src/Data.OldList.html#words"><span class="hs-identifier hs-var">words</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093476"><span class="hs-identifier hs-var">str</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-107"></span><span>    </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679093471"><span class="annot"><span class="annottext">Key
</span><a href="#local-6989586621679093471"><span class="hs-identifier hs-var">k</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679093470"><span class="annot"><span class="annottext">[Key]
</span><a href="#local-6989586621679093470"><span class="hs-identifier hs-var">ks</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093475"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">customBindings :: Map Key [Key]
</span><a href="System.Console.Haskeline.Prefs.html#customBindings"><span class="hs-identifier hs-var">customBindings</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Key -&gt; [Key] -&gt; Map Key [Key] -&gt; Map Key [Key]
forall k a. Ord k =&gt; k -&gt; a -&gt; Map k a -&gt; Map k a
</span><a href="../../containers/src/Data.Map.Internal.html#insert"><span class="hs-identifier hs-var">Map.insert</span></a></span><span> </span><span class="annot"><span class="annottext">Key
</span><a href="#local-6989586621679093471"><span class="hs-identifier hs-var">k</span></a></span><span> </span><span class="annot"><span class="annottext">[Key]
</span><a href="#local-6989586621679093470"><span class="hs-identifier hs-var">ks</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Prefs -&gt; Map Key [Key]
</span><a href="System.Console.Haskeline.Prefs.html#customBindings"><span class="hs-identifier hs-var hs-var">customBindings</span></a></span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093475"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">)</span><span class="hs-special">}</span><span>
</span><span id="line-108"></span><span>    </span><span class="annot"><span class="annottext">Maybe [Key]
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093475"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-109"></span><span>
</span><span id="line-110"></span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#addCustomKeySequence"><span class="hs-identifier hs-type">addCustomKeySequence</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span>
</span><span id="line-111"></span><span id="addCustomKeySequence"><span class="annot"><span class="annottext">addCustomKeySequence :: String -&gt; Prefs -&gt; Prefs
</span><a href="System.Console.Haskeline.Prefs.html#addCustomKeySequence"><span class="hs-identifier hs-var hs-var">addCustomKeySequence</span></a></span></span><span> </span><span id="local-6989586621679093468"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093468"><span class="hs-identifier hs-var">str</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Prefs -&gt; Prefs)
-&gt; ((Maybe String, String, Key) -&gt; Prefs -&gt; Prefs)
-&gt; Maybe (Maybe String, String, Key)
-&gt; Prefs
-&gt; Prefs
forall b a. b -&gt; (a -&gt; b) -&gt; Maybe a -&gt; b
</span><a href="../../base/src/Data.Maybe.html#maybe"><span class="hs-identifier hs-var">maybe</span></a></span><span> </span><span class="annot"><span class="annottext">Prefs -&gt; Prefs
forall a. a -&gt; a
</span><a href="../../base/src/GHC.Base.html#id"><span class="hs-identifier hs-var">id</span></a></span><span> </span><span class="annot"><span class="annottext">(Maybe String, String, Key) -&gt; Prefs -&gt; Prefs
</span><a href="#local-6989586621679093467"><span class="hs-identifier hs-var">addKS</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe (Maybe String, String, Key)
</span><a href="#local-6989586621679093466"><span class="hs-identifier hs-var">maybeParse</span></a></span><span>
</span><span id="line-112"></span><span>    </span><span class="hs-keyword">where</span><span>
</span><span id="line-113"></span><span>        </span><span class="annot"><a href="#local-6989586621679093466"><span class="hs-identifier hs-type">maybeParse</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span class="hs-special">,</span><span class="annot"><a href="System.Console.Haskeline.Key.html#Key"><span class="hs-identifier hs-type">Key</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-114"></span><span>        </span><span id="local-6989586621679093466"><span class="annot"><span class="annottext">maybeParse :: Maybe (Maybe String, String, Key)
</span><a href="#local-6989586621679093466"><span class="hs-identifier hs-var hs-var">maybeParse</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">String -&gt; [String]
</span><a href="../../base/src/Data.OldList.html#words"><span class="hs-identifier hs-var">words</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093468"><span class="hs-identifier hs-var">str</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-115"></span><span>            </span><span class="hs-special">[</span><span id="local-6989586621679093465"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093465"><span class="hs-identifier hs-var">cstr</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679093464"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093464"><span class="hs-identifier hs-var">kstr</span></a></span></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe String
-&gt; String -&gt; String -&gt; Maybe (Maybe String, String, Key)
forall {b} {a}.
Read b =&gt;
a -&gt; String -&gt; String -&gt; Maybe (a, b, Key)
</span><a href="#local-6989586621679093463"><span class="hs-identifier hs-var">parseWords</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe String
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093465"><span class="hs-identifier hs-var">cstr</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093464"><span class="hs-identifier hs-var">kstr</span></a></span><span>
</span><span id="line-116"></span><span>            </span><span class="hs-special">[</span><span id="local-6989586621679093462"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093462"><span class="hs-identifier hs-var">term</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679093461"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093461"><span class="hs-identifier hs-var">cstr</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679093460"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093460"><span class="hs-identifier hs-var">kstr</span></a></span></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe String
-&gt; String -&gt; String -&gt; Maybe (Maybe String, String, Key)
forall {b} {a}.
Read b =&gt;
a -&gt; String -&gt; String -&gt; Maybe (a, b, Key)
</span><a href="#local-6989586621679093463"><span class="hs-identifier hs-var">parseWords</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">String -&gt; Maybe String
forall a. a -&gt; Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-var">Just</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093462"><span class="hs-identifier hs-var">term</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093461"><span class="hs-identifier hs-var">cstr</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093460"><span class="hs-identifier hs-var">kstr</span></a></span><span>
</span><span id="line-117"></span><span>            </span><span class="annot"><span class="annottext">[String]
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Maybe (Maybe String, String, Key)
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-118"></span><span>        </span><span id="local-6989586621679093463"><span class="annot"><span class="annottext">parseWords :: a -&gt; String -&gt; String -&gt; Maybe (a, b, Key)
</span><a href="#local-6989586621679093463"><span class="hs-identifier hs-var hs-var">parseWords</span></a></span></span><span> </span><span id="local-6989586621679093454"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679093454"><span class="hs-identifier hs-var">mterm</span></a></span></span><span> </span><span id="local-6989586621679093453"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093453"><span class="hs-identifier hs-var">cstr</span></a></span></span><span> </span><span id="local-6989586621679093452"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093452"><span class="hs-identifier hs-var">kstr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-119"></span><span>            </span><span id="local-6989586621679093451"><span class="annot"><span class="annottext">Key
</span><a href="#local-6989586621679093451"><span class="hs-identifier hs-var">k</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe Key
</span><a href="System.Console.Haskeline.Key.html#parseKey"><span class="hs-identifier hs-var">parseKey</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093452"><span class="hs-identifier hs-var">kstr</span></a></span><span>
</span><span id="line-120"></span><span>            </span><span id="local-6989586621679093450"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679093450"><span class="hs-identifier hs-var">cs</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">String -&gt; Maybe b
forall a. Read a =&gt; String -&gt; Maybe a
</span><a href="System.Console.Haskeline.Prefs.html#readMaybe"><span class="hs-identifier hs-var">readMaybe</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093453"><span class="hs-identifier hs-var">cstr</span></a></span><span>
</span><span id="line-121"></span><span>            </span><span class="annot"><span class="annottext">(a, b, Key) -&gt; Maybe (a, b, Key)
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679093454"><span class="hs-identifier hs-var">mterm</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679093450"><span class="hs-identifier hs-var">cs</span></a></span><span class="hs-special">,</span><span class="annot"><span class="annottext">Key
</span><a href="#local-6989586621679093451"><span class="hs-identifier hs-var">k</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-122"></span><span>        </span><span id="local-6989586621679093467"><span class="annot"><span class="annottext">addKS :: (Maybe String, String, Key) -&gt; Prefs -&gt; Prefs
</span><a href="#local-6989586621679093467"><span class="hs-identifier hs-var hs-var">addKS</span></a></span></span><span> </span><span id="local-6989586621679093449"><span class="annot"><span class="annottext">(Maybe String, String, Key)
</span><a href="#local-6989586621679093449"><span class="hs-identifier hs-var">ks</span></a></span></span><span> </span><span id="local-6989586621679093448"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093448"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093448"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">customKeySequences :: [(Maybe String, String, Key)]
</span><a href="System.Console.Haskeline.Prefs.html#customKeySequences"><span class="hs-identifier hs-var">customKeySequences</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Maybe String, String, Key)
</span><a href="#local-6989586621679093449"><span class="hs-identifier hs-var">ks</span></a></span><span class="annot"><span class="annottext">(Maybe String, String, Key)
-&gt; [(Maybe String, String, Key)] -&gt; [(Maybe String, String, Key)]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span class="annot"><span class="annottext">Prefs -&gt; [(Maybe String, String, Key)]
</span><a href="System.Console.Haskeline.Prefs.html#customKeySequences"><span class="hs-identifier hs-var hs-var">customKeySequences</span></a></span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093448"><span class="hs-identifier hs-var">p</span></a></span><span class="hs-special">}</span><span>
</span><span id="line-123"></span><span>
</span><span id="line-124"></span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#lookupKeyBinding"><span class="hs-identifier hs-type">lookupKeyBinding</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Key.html#Key"><span class="hs-identifier hs-type">Key</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="System.Console.Haskeline.Key.html#Key"><span class="hs-identifier hs-type">Key</span></a></span><span class="hs-special">]</span><span>
</span><span id="line-125"></span><span id="lookupKeyBinding"><span class="annot"><span class="annottext">lookupKeyBinding :: Key -&gt; Prefs -&gt; [Key]
</span><a href="System.Console.Haskeline.Prefs.html#lookupKeyBinding"><span class="hs-identifier hs-var hs-var">lookupKeyBinding</span></a></span></span><span> </span><span id="local-6989586621679093447"><span class="annot"><span class="annottext">Key
</span><a href="#local-6989586621679093447"><span class="hs-identifier hs-var">k</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[Key] -&gt; Key -&gt; Map Key [Key] -&gt; [Key]
forall k a. Ord k =&gt; a -&gt; k -&gt; Map k a -&gt; a
</span><a href="../../containers/src/Data.Map.Internal.html#findWithDefault"><span class="hs-identifier hs-var">Map.findWithDefault</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">Key
</span><a href="#local-6989586621679093447"><span class="hs-identifier hs-var">k</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">Key
</span><a href="#local-6989586621679093447"><span class="hs-identifier hs-var">k</span></a></span><span> </span><span class="annot"><span class="annottext">(Map Key [Key] -&gt; [Key])
-&gt; (Prefs -&gt; Map Key [Key]) -&gt; Prefs -&gt; [Key]
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">Prefs -&gt; Map Key [Key]
</span><a href="System.Console.Haskeline.Prefs.html#customBindings"><span class="hs-identifier hs-var hs-var">customBindings</span></a></span><span>
</span><span id="line-126"></span><span>
</span><span id="line-127"></span><span class="hs-comment">-- | Read 'Prefs' from a given file.  If there is an error reading the file,</span><span>
</span><span id="line-128"></span><span class="hs-comment">-- the 'defaultPrefs' will be returned.</span><span>
</span><span id="line-129"></span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#readPrefs"><span class="hs-identifier hs-type">readPrefs</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="System.Console.Haskeline.Prefs.html#Prefs"><span class="hs-identifier hs-type">Prefs</span></a></span><span>
</span><span id="line-130"></span><span id="readPrefs"><span class="annot"><span class="annottext">readPrefs :: String -&gt; IO Prefs
</span><a href="System.Console.Haskeline.Prefs.html#readPrefs"><span class="hs-identifier hs-var hs-var">readPrefs</span></a></span></span><span> </span><span id="local-6989586621679093443"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093443"><span class="hs-identifier hs-var">file</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(IOException -&gt; IO Prefs) -&gt; IO Prefs -&gt; IO Prefs
forall (m :: * -&gt; *) e a.
(MonadCatch m, Exception e) =&gt;
(e -&gt; m a) -&gt; m a -&gt; m a
</span><a href="../../exceptions/src/Control.Monad.Catch.html#handle"><span class="hs-identifier hs-var">handle</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><span class="annottext">IOException
</span><span class="hs-identifier">_</span></span><span class="hs-glyph">::</span><span class="annot"><a href="../../base/src/GHC.IO.Exception.html#IOException"><span class="hs-identifier hs-type">IOException</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs -&gt; IO Prefs
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="System.Console.Haskeline.Prefs.html#defaultPrefs"><span class="hs-identifier hs-var">defaultPrefs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">(IO Prefs -&gt; IO Prefs) -&gt; IO Prefs -&gt; IO Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-131"></span><span>    </span><span id="local-6989586621679093442"><span class="annot"><span class="annottext">[String]
</span><a href="#local-6989586621679093442"><span class="hs-identifier hs-var">ls</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">(String -&gt; [String]) -&gt; IO String -&gt; IO [String]
forall (f :: * -&gt; *) a b. Functor f =&gt; (a -&gt; b) -&gt; f a -&gt; f b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var">fmap</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; [String]
</span><a href="../../base/src/Data.OldList.html#lines"><span class="hs-identifier hs-var">lines</span></a></span><span> </span><span class="annot"><span class="annottext">(IO String -&gt; IO [String]) -&gt; IO String -&gt; IO [String]
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; IO String
</span><a href="../../base/src/System.IO.html#readFile"><span class="hs-identifier hs-var">readFile</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093443"><span class="hs-identifier hs-var">file</span></a></span><span>
</span><span id="line-132"></span><span>    </span><span class="annot"><span class="annottext">Prefs -&gt; IO Prefs
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">(Prefs -&gt; IO Prefs) -&gt; Prefs -&gt; IO Prefs
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24%21"><span class="hs-operator hs-var">$!</span></a></span><span> </span><span class="annot"><span class="annottext">(Prefs -&gt; String -&gt; Prefs) -&gt; Prefs -&gt; [String] -&gt; Prefs
forall (t :: * -&gt; *) b a.
Foldable t =&gt;
(b -&gt; a -&gt; b) -&gt; b -&gt; t a -&gt; b
</span><a href="../../base/src/Data.Foldable.html#foldl%27"><span class="hs-identifier hs-var">foldl'</span></a></span><span> </span><span class="annot"><span class="annottext">Prefs -&gt; String -&gt; Prefs
</span><a href="#local-6989586621679093438"><span class="hs-identifier hs-var">applyField</span></a></span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="System.Console.Haskeline.Prefs.html#defaultPrefs"><span class="hs-identifier hs-var">defaultPrefs</span></a></span><span> </span><span class="annot"><span class="annottext">[String]
</span><a href="#local-6989586621679093442"><span class="hs-identifier hs-var">ls</span></a></span><span>
</span><span id="line-133"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-134"></span><span>    </span><span id="local-6989586621679093438"><span class="annot"><span class="annottext">applyField :: Prefs -&gt; String -&gt; Prefs
</span><a href="#local-6989586621679093438"><span class="hs-identifier hs-var hs-var">applyField</span></a></span></span><span> </span><span id="local-6989586621679093433"><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093433"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span id="local-6989586621679093432"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093432"><span class="hs-identifier hs-var">l</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; String -&gt; (String, String)
forall a. (a -&gt; Bool) -&gt; [a] -&gt; ([a], [a])
</span><a href="../../base/src/GHC.List.html#break"><span class="hs-identifier hs-var">break</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">Char
</span><span class="hs-char">':'</span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093432"><span class="hs-identifier hs-var">l</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-135"></span><span>                </span><span class="hs-special">(</span><span id="local-6989586621679093430"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093430"><span class="hs-identifier hs-var">name</span></a></span></span><span class="hs-special">,</span><span id="local-6989586621679093429"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093429"><span class="hs-identifier hs-var">val</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">String
-&gt; [(String, String -&gt; Prefs -&gt; Prefs)]
-&gt; Maybe (String -&gt; Prefs -&gt; Prefs)
forall a b. Eq a =&gt; a -&gt; [(a, b)] -&gt; Maybe b
</span><a href="../../base/src/GHC.List.html#lookup"><span class="hs-identifier hs-var">lookup</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">(Char -&gt; Char) -&gt; ShowS
forall a b. (a -&gt; b) -&gt; [a] -&gt; [b]
</span><a href="../../base/src/GHC.Base.html#map"><span class="hs-identifier hs-var">map</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Char
</span><a href="../../base/src/GHC.Unicode.html#toLower"><span class="hs-identifier hs-var">toLower</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS
</span><a href="#local-6989586621679093427"><span class="hs-identifier hs-var">trimSpaces</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093430"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[(String, String -&gt; Prefs -&gt; Prefs)]
</span><a href="System.Console.Haskeline.Prefs.html#settors"><span class="hs-identifier hs-var">settors</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-136"></span><span>                        </span><span class="annot"><span class="annottext">Maybe (String -&gt; Prefs -&gt; Prefs)
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093433"><span class="hs-identifier hs-var">p</span></a></span><span>
</span><span id="line-137"></span><span>                        </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Just"><span class="hs-identifier hs-type">Just</span></a></span><span> </span><span id="local-6989586621679093426"><span class="annot"><span class="annottext">String -&gt; Prefs -&gt; Prefs
</span><a href="#local-6989586621679093426"><span class="hs-identifier hs-var">set</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">String -&gt; Prefs -&gt; Prefs
</span><a href="#local-6989586621679093426"><span class="hs-identifier hs-var">set</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Int -&gt; ShowS
forall a. Int -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#drop"><span class="hs-identifier hs-var">drop</span></a></span><span> </span><span class="annot"><span class="annottext">Int
</span><span class="hs-number">1</span></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679093429"><span class="hs-identifier hs-var">val</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Prefs
</span><a href="#local-6989586621679093433"><span class="hs-identifier hs-var">p</span></a></span><span>  </span><span class="hs-comment">-- drop initial &quot;:&quot;, don't crash if val==&quot;&quot;</span><span>
</span><span id="line-138"></span><span>    </span><span id="local-6989586621679093427"><span class="annot"><span class="annottext">trimSpaces :: ShowS
</span><a href="#local-6989586621679093427"><span class="hs-identifier hs-var hs-var">trimSpaces</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ShowS
forall a. (a -&gt; Bool) -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#dropWhile"><span class="hs-identifier hs-var">dropWhile</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isSpace"><span class="hs-identifier hs-var">isSpace</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS
forall a. [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#reverse"><span class="hs-identifier hs-var">reverse</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">(Char -&gt; Bool) -&gt; ShowS
forall a. (a -&gt; Bool) -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#dropWhile"><span class="hs-identifier hs-var">dropWhile</span></a></span><span> </span><span class="annot"><span class="annottext">Char -&gt; Bool
</span><a href="../../base/src/GHC.Unicode.html#isSpace"><span class="hs-identifier hs-var">isSpace</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS -&gt; ShowS -&gt; ShowS
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">ShowS
forall a. [a] -&gt; [a]
</span><a href="../../base/src/GHC.List.html#reverse"><span class="hs-identifier hs-var">reverse</span></a></span><span>
</span><span id="line-139"></span><span>                    </span><span>
</span><span id="line-140"></span></pre></body></html>